inherited formCadConvenio: TformCadConvenio
  Caption = 'Cadastro de Conv'#234'nios'
  ClientHeight = 364
  ClientWidth = 613
  ExplicitWidth = 629
  ExplicitHeight = 402
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 613
    Height = 300
    ExplicitWidth = 613
    ExplicitHeight = 300
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 605
      ExplicitHeight = 290
      inherited dbgConsulta: TDBGrid
        Top = 55
        Width = 605
        Height = 235
        DataSource = dsCadastro
        Columns = <
          item
            Expanded = False
            FieldName = 'Con_Cd'
            Title.Caption = 'C'#243'digo'
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Con_Ds'
            Title.Caption = 'Descri'#231#227'o'
            Width = 402
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Width = 605
        Height = 55
        ExplicitWidth = 605
        ExplicitHeight = 55
        object OdontoLabel1: TOdontoLabel
          Left = 16
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object OdontoLabel2: TOdontoLabel
          Left = 104
          Top = 8
          Width = 46
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object oedDescricao: TOdontoEdit
          Left = 104
          Top = 24
          Width = 385
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedCodigo: TOdontoNumero
          Left = 16
          Top = 24
          Width = 77
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 605
      ExplicitHeight = 290
      object pgcDadosGerais: TPageControl
        Left = 0
        Top = 0
        Width = 605
        Height = 290
        ActivePage = tbsDadosConvenio
        Align = alClient
        TabOrder = 0
        object tbsDadosConvenio: TTabSheet
          Caption = 'Dados do Conv'#234'nio'
          object OdontoLabel3: TOdontoLabel
            Left = 16
            Top = 16
            Width = 33
            Height = 13
            Caption = 'C'#243'digo'
          end
          object OdontoLabel4: TOdontoLabel
            Left = 112
            Top = 16
            Width = 46
            Height = 13
            Caption = 'Descri'#231#227'o'
          end
          object dbeCodigo: TDBOdontoEdit
            Left = 16
            Top = 32
            Width = 77
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Con_Cd'
            DataSource = dsCadastro
            TabOrder = 0
            CorFoco = 15461355
          end
          object dbeDescricao: TDBOdontoEdit
            Left = 113
            Top = 32
            Width = 296
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Con_Ds'
            DataSource = dsCadastro
            TabOrder = 1
            CorFoco = 15461355
          end
        end
        object tbsTipoPlano: TTabSheet
          Caption = 'Tipos de Planos'
          ImageIndex = 1
          object grdTabelaPreco: TDBGrid
            Left = 0
            Top = 0
            Width = 597
            Height = 262
            Align = alClient
            DataSource = dsTipoPlano
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'Tpp_Cd'
                Title.Caption = 'C'#243'digo'
                Width = 39
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Tpp_Ds'
                Title.Caption = 'Descri'#231#227'o'
                Width = 255
                Visible = True
              end>
          end
        end
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 613
    ExplicitWidth = 613
    inherited imgBotoes: TImage
      Width = 611
      Height = 39
      ExplicitWidth = 611
      ExplicitHeight = 39
    end
  end
  inherited statCadastro: TStatusBar
    Top = 339
    Width = 613
    ExplicitTop = 339
    ExplicitWidth = 613
  end
  inherited pmOrdenar: TPopupMenu
    Left = 386
  end
  object dsCadastro: TDataSource
    DataSet = qCadastro
    Left = 24
    Top = 216
  end
  object qCadastro: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Con_Cd, '
      '       Con_Ds'
      'FROM Convenio')
    Left = 24
    Top = 248
    object qCadastroCon_Cd: TAutoIncField
      FieldName = 'Con_Cd'
      ReadOnly = True
    end
    object qCadastroCon_Ds: TStringField
      FieldName = 'Con_Ds'
      Size = 40
    end
  end
  object dsTipoPlano: TDataSource
    DataSet = qTipoPlano
    Left = 56
    Top = 216
  end
  object qTipoPlano: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'Tpp_Convenio'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Tpp_Cd, '
      '     Tpp_Convenio, '
      '     Tpp_Ds'
      'FROM TipoPlano'
      'WHERE Tpp_Convenio = :Tpp_Convenio')
    Left = 56
    Top = 248
    object qTipoPlanoTpp_Cd: TAutoIncField
      FieldName = 'Tpp_Cd'
      ReadOnly = True
    end
    object qTipoPlanoTpp_Convenio: TIntegerField
      FieldName = 'Tpp_Convenio'
    end
    object qTipoPlanoTpp_Ds: TStringField
      FieldName = 'Tpp_Ds'
      Size = 40
    end
  end
end
